10 REM *** RAMCO 64 *** BUCK CHILDRESS ***
20 REM *** P.O. BOX 13575 SALEM, OR 97309 ***
30 PRINTCHR$(147)"LOADING AND CHECKING DATA LINE:":J=49152
40 FORB=0TO11:READA
50 IFB=0THENL=PEEK(64)*256+PEEK(63):PRINTCHR$(19)TAB(31)L:PRINT
60 IFA<0ORA>255THEN80
70 POKEJ+B,A:X=X+A:D=D+1:NEXTB:READA:IFA=XTHEN90
80 PRINT"ERROR IN DATA LINE:"L:END
90 X=0:J=J+12:IFD<372THEN40
100 PRINT"THE DATA IS OK...":PRINT
110 PRINT"SYS 49152 TO ACTIVATE...":END
120 DATA169,19,160,193,32,30,171,169,0,162,2,160,1267
130 DATA255,141,115,193,141,118,193,142,116,193,140,117,1864
140 DATA193,76,134,192,32,221,192,169,11,160,193,32,1605
150 DATA30,171,32,242,192,173,118,193,32,210,255,32,1680
160 DATA3,193,32,213,192,32,221,192,169,15,160,193,1615
170 DATA32,30,171,32,242,192,32,3,193,162,15,32,1136
180 DATA198,255,32,207,255,205,118,193,240,15,169,103,1990
190 DATA160,193,32,30,171,169,0,141,115,193,76,134,1414
200 DATA192,72,32,213,192,104,141,99,4,173,134,2,1358
210 DATA141,99,216,173,118,193,24,105,16,141,118,193,1537
220 DATA208,65,238,115,193,208,60,169,94,160,193,32,1735
230 DATA30,171,238,116,193,238,117,193,173,117,193,201,1980
240 DATA5,144,8,169,32,141,99,4,76,213,192,169,1252
250 DATA65,160,193,32,30,171,169,0,174,117,193,32,1336
260 DATA205,189,169,81,160,193,32,30,171,166,214,164,1774
270 DATA211,142,119,193,140,120,193,174,119,193,172,120,1896
280 DATA193,24,32,240,255,169,0,174,115,193,32,205,1632
290 DATA189,32,225,255,240,3,76,28,192,169,15,32,1456
300 DATA195,255,76,204,255,169,15,168,162,8,32,186,1725
310 DATA255,169,0,32,189,255,32,192,255,162,15,76,1632
320 DATA201,255,173,115,193,32,210,255,173,116,193,32,1948
330 DATA210,255,169,1,76,210,255,169,13,32,210,255,1855
340 DATA76,204,255,77,45,87,0,77,45,82,0,147,1095
350 DATA18,32,67,45,54,52,32,32,67,72,69,67,607
360 DATA75,83,32,66,79,84,72,32,49,53,52,49,726
370 DATA32,65,78,68,32,49,53,55,49,32,68,82,663
380 DATA73,86,69,83,32,13,13,13,0,13,13,68,476
390 DATA82,73,86,69,32,66,85,70,70,69,82,32,816
400 DATA0,32,42,32,76,79,67,65,84,73,79,78,707
410 DATA32,0,32,42,32,79,75,46,46,46,0,32,462
420 DATA42,32,69,82,82,79,82,46,46,46,0,0,606